app hyperpoc
enda


rem This procedure contains all procedure definitions and global
rem variable definitions available to user programs.
rem The purpose of this source is to support the checking process with OPLLINT.

rem For an OPLLINT check of, for instance, module "index" enter the following
rem line:
rem   OPLLINT index hpref -imc -rindex


proc hpref:
global ObjTxt$(128),ObjAttr$(128),ObjPar%,ObjX%,ObjY%,ObjW%,ObjH%,onAct%
global curstk$(128),stkfol$(128),icnfol$(128),appfol$(128)
global cuCd%,km%,sMod%,sKey$(32),aBmHnd%(4)
global matop%,maleft%,maxo%,mayo%
global prVar1%,prVar2%,prVar3%,prVar4%
endp

proc findCd%:(stack$,srchmod%,srch$,adHand%)
print stack$,srchmod%,srch$,adHand%
endp

proc findBg:(stack$,adHand%)
print stack$,adHand%
endp

proc CdObj%:(stack$,adHand%,ObjMsk&)
print stack$,adHand%,ObjMsk&
endp

proc getKey%:(control%)
print control%
endp

proc showCd%:(stknam$,cdnum%)
print stknam$,cdnum%
endp

proc extract$:(cslist$,i%)
print cslist$,i%
endp

proc obj$:(o%)
print o%
endp

proc shtName$:(path$)
print path$
endp

proc prTim:(sec%)
print sec%
endp

proc asctxt$:(rawtxt$,len%,pat$)
print rawtxt$,len%,pat$
endp

proc strip$:(phone$)
print phone$
endp

proc dial:(dial$,out%)
print dial$,out%
endp

proc setrs:
endp

proc helpClue:(clue$)
print clue$
endp

proc trfont%:(f%)
print f%
endp